home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
city173c.zip
/
R-PCCITY.DOC
< prev
next >
Wrap
Text File
|
1992-02-04
|
11KB
|
199 lines
============[ Changes to RBBS-PC 17.3C ]===============
Written by Gary Glueckert of The SUNY RBBS 516-420-0818
The State University of New York at Farmingdale
Last Fix: GG100901
CONVENTIONS:
The changes are assigned numbers that correspond to the month,
day, and order in which they were made. Any mods are dated
following the modification description. The lines of source code
that are changed/modified/added are designated by the comment
beginning in column 70 of "' iiMMDD#" where ii is the initials of
the person providing the change.
-------------------------------------------------------------------
RBBS-PC.EXE 09-01-91 midnight EST Release of 17.3C
--------------------------------------------------------------------
RBBS GG100701 User unable to change city/state information
RBBS GG100901 SysOp unable to change city/state information
------------------------[ GG100701 ]------------------------
Problem: User is unable to change CITY/STATE field in users file when
the user's information for this field may have changed.
Solution: Change RBBS-PC.BAS as follows:
1240 IF ZUserSecLevel < ZOptSec(ZFF) THEN _
ZViolation$ = ZSection$ + _
" " + _
ZWasZ$ : _
GOSUB 1380 : _
GOTO 1205
IF ZFF > 39 THEN _
ZDirExtension$ = ZLibDirExtension$ _
ELSE ZDirExtension$ = ZMainDirExtension$
ON ZFF GOSUB _
1400, _ ' 1 A)nswer questionnaire 1
9700, _ ' 2 B)ulletins
1800, _ ' 3 C)omments
10970, _ ' 4 D)oor (exit to)
2000, _ ' 5 E)nter a message
1275, _ ' 6 F)ile system (exit to)
1760, _ ' 7 I)nitial welcome redisplayed
5300, _ ' 8 J)oin a conference
3900, _ ' 9 K)ill a message
4700, _ '10 O)perator page
1900, _ '11 P)ersonal mail (look for)
4330, _ '12 R)ead messages
4340, _ '13 S)can message headers
4320, _ '14 T)opic msg scan
1285, _ '15 U)tilities (exit to)
5800, _ '16 V)iew a conference
9800, _ '17 W)ho's on other nodes displayed
1283, _ '18 @)Library (exit to) 18
20160, _ '19 D)ownload
10570, _ '20 G)oodbye
20155, _ '21 L)ist
20185, _ '22 N)ew
20180, _ '23 P)ersonal files
20175, _ '24 S)can
20170, _ '25 U)pload
20140, _ '26 V)iew ARC Contents
5500, _ '27 B)aud rate change 300==>450 1
9100, _ '28 C)lock (time & time on)
42850, _ '29 E)cho selection
42800, _ '30 F)ile transfer protocol
43000, _ '31 G)raphics
5200, _ '32 L)ines per page
10925, _ '33 M)essage margin
5000, _ '34 P)ersonal Info. ' GG100701
5400, _ '35 R)eview preferences
4850, _ '36 S)tatistics displayed
1500, _ '37 T)oggle
10090, _ '38 U)serlog displayed 12
30000, _ '39 A)rchive a Library disk 1
30100, _ '40 C)hange a Library disk
30200, _ '41 D)ownload Library files
10570, _ '42 G)oodbye
20155, _ '43 L)ist a Library directory
20175, _ '44 S)can a Library disk directory
20140, _ '45 V)iew arc contents 7
1325, _ '46 H)elp 1
1330, _ '47 ?)help
1250, _ '48 Q)uit
4240, _ '49 X)expert toggle on/off 4
10070, _ '50 1) List comments file 1
10090, _ '51 2) List callers file
10390, _ '52 3) Recover a message
10530, _ '53 4) Erase comments
11000, _ '54 5) User file maintenance
4130, _ '55 6) Toggle page bell on/off
10930 '56 7) Exit to DOS 2.x or above 7
GOTO 1205
5000 WasA1$ = LEFT$(ZUserLocation$,1) ' GG100701
CALL AllCaps(WasA1$) ' GG100701
ZOutTxt$ = WasA1$ + ")" + _ ' GG100701
RIGHT$(ZUserLocation$, LEN(ZUserLocation$) - 1) ' GG100701
ZOutTxt$ = "Change P)assword or " + ZOutTxt$ + ZPressEnter$ ' GG100701
CALL SkipLine (1) : _ ' GG100701
ZTurboKey = -ZTurboKeyUser ' GG100701
GOSUB 12995 : _ ' GG100701
IF ZSubParm < 0 THEN _ ' GG100701
GOTO 202 ' GG100701
IF ZWasQ = 0 THEN _ ' GG100701
RETURN ' GG100701
CALL AllCaps (ZUserIn$) ' GG100701
IF ZUserIn$ = WasA1$ THEN _ ' GG100701
CALL SkipLine (1) : _ ' GG100701
CALL QuickTPut ("Your CURRENT " + ZUserLocation$ + _ ' GG100701
" is " + ZCityState$,1) : _ ' GG100701
WasA1$ = "Enter your NEW " : _ ' GG100701
GOSUB 12960 : _ ' GG100701
WasA1$ = "What is your " : _ ' GG100701
ZUserIn$ = "" : _ ' GG100701
RETURN ' GG100701
IF ZUserIn$ < > "P" THEN _ ' GG100701
GOTO 5000 ' GG100701
12960 ZOutTxt$ = WasA1$ + _
ZUserLocation$
IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _ ' GG100701
CALL QuickTPut1 _ ' GG100701
(ZUserLocation$ + " Change only in MAIN User File") : _ ' GG100701
RETURN ' GG100701
IF NOT ZNewUser THEN _ ' GG100701
ZOutTxt$ = ZOutTxt$ + ZPressEnter$ ' GG100701
GOSUB 12995
IF ZSubParm < 0 THEN _ ' GG100701
GOTO 202 ' GG100701
IF NOT ZNewUser AND ZWasQ = 0 THEN RETURN ' GG100701
IF WasA1$ = "" THEN RETURN ' GG100701
IF ZWasQ = 0 THEN _
GOTO 12960
IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
GOTO 12960
IF NOT ZNewUser THEN _ ' GG100701
GOSUB 12989 : _ ' GG100701
CALL OpenUser (HighestUserRecord) : _ ' GG100701
GOSUB 9450 : _ ' GG100701
GET 5,ZUserFileIndex ' GG100701
CALL AllCaps (ZUserIn$)
LSET ZCityState$ = ZUserIn$
IF NOT ZNewUser THEN _ ' GG100701
GOSUB 9440 : _ ' GG100701
GOSUB 12991 : _ ' GG100701
CALL SkipLine (1) : _ ' GG100701
CALL QuickTPut(ZUserLocation$ + " changed",2) : _ ' GG100701
CALL UpdtCalr(ZUserLocation$ + " changed to " + _ ' GG100701
ZCityState$,2) ' GG100701
ZWasCI$ = ZUserIn$
RETURN
------------------------[ GG100901 ]------------------------
Problem: SysOp is unable to change the information contained in the
CITY/STATE field even though the information contained in this field
may have changed as pertains to the user
Solution: Change RBBS-PC.BAS as follows:
11110 ZOutTxt$ = "D)el F)ind M)enu N)ewPW P)rnt R)eset Grfx C)" _
+ ZUserLocation$ + " Q)uit" ' GG100901
GOSUB 1512
ZOutTxt$ = "S)ecLvl U)ser# X)fer Cnts T)ime Used B)aud Change"
IF ZRestrictByDate THEN _
ZOutTxt$ = ZOutTxt$ + _
" $)RegDate"
GOSUB 12930
IF NOT ScanUsers AND ZWasQ = 0 THEN _
GOTO 11310
11115 ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1)
CALL AllCaps (ZWasZ$)
WasX = INSTR("DNPQFSMR$UXC",ZWasZ$) ' GG100901
IF ZWasZ$ = "" AND ScanUsers THEN _
GOTO 12965
ON WasX GOTO 11130,11160,11220,11320,11340,11390,11330,_ ' GG100901
11400,11450,11127,11490,11190 ' GG100901
GOTO 11110
11160 GOSUB 12800
GOTO 11290
' ' GG100901
' * C - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE CITY/STATE) ' GG100901
' ' GG100901
11190 CityStateSave$ = WasCI$ ' GG100901
ZOutTxt$ = ZUserLocation$ ' GG100901
GOSUB 12995 ' GG100901
IF ZRet OR ZWasQ = 0 THEN GOTO 11015 ' GG100901
CALL AllCaps (ZUserIn$) ' GG100901
LSET ZCityState$ = ZUserIn$ ' GG100901
GOTO 11290 ' GG100901
WasCI$ = CityStateSave$ ' GG100901
GOTO 11015 ' GG100901